Belajar Delphi 7 Aplikasi Kalkulator Sederhana

Tris4Share

Juni 03, 2014

0

Aplikasi Dan Pembelajaran, Script And Programming

Hello @3rd Post

Hii Semua ,
 Kali ini saya akan sharing ilmu tentang " Cara Membuat Aplikasi Kalkulator Sederhana Di Delphi "

Oke Next :
 Step 1 : Buka Delphi 7 Enterprise Edition..
              Tidak punya ? :D
              So ,, woles aja saya sediain link untuk download nya :

Download Delphi 7 + Crack : Klik Disini  

(source link download dari : http://www.kuyhaa-android19.com/delphi-7-enterprise-full-keygen.html)

Password RAR : www.kuyhaa-android19.com 

 Note : Untuk screenshot tidak disediakan :D karena saya bikin postingan di warnet , (maklum gituh :D) 
 Nanti saya edit beserta screenshotnya ;)

 Step 2 : Buat New Project

 Tambahkan :

(+) Label 1 Dengan Caption : Bilangan 1

 

(+) Label 2 Dengan Caption : Bilangan 2

 

(+) Label 3 Dengan Caption : Penjumlahan

 

(+) Label 4 Dengan Caption : Pengurangan

 

(+) Label 5 Dengan Caption : Perkalian

 

(+) Label 6 Dengan Caption : Pembagian

 

(+) Label 7 Dengan Caption : Penjumlahan

 

(+) Edit 1 Dengan Nama : Ebil1 , Text : *Blank* (Kosongkan)

 

(+) Edit 2 Dengan Nama : Ebil2 , Text : *Blank* (Kosongkan)

 

(+) Edit 3 Dengan Nama : Ejumlah , Text : *Blank* (Kosongkan)

 

(+) Edit 4 Dengan Nama : Ekurang , Text : *Blank* (Kosongkan)

 

(+) Edit 5 Dengan Nama : Ekali , Text : *Blank* (Kosongkan)

 

(+) Edit 6 Dengan Nama : Ebagi , Text : *Blank* (Kosongkan)

 

(+) Button 1 Dengan Caption : Penjumlahan

 

(+) Button 2 Dengan Caption : Pengurangan

 

(+) Button 3 Dengan Caption : Perkalian

 

(+) Button 4 Dengan Caption : Pembagian

 

(+) Button 5 Dengan Caption : Keluar

 Dan akan terlihat seperti gambar dibawah ini.

Pada Edit1 :

Pada Edit2 :

  Sesuai control yang telah dituliskan diatas . pada edit3 , edit4 , edit5 dan seterusnya dinamai dengan   Nama yang sudah ditentukan.

  Next Step :
 
  Pada Button 1 (Penjumlahan) Sama-kan kode :

procedure TForm1.Button1Click(Sender: TObject);

var

bil1,bil2 : Real;

Jumlah : Real;

begin

bil1 := StrToFloat Ebil1.Text;

bil2 := StrToFloat Ebil2.Text;

Jumlah := bil1+bil2;

Ejumlah.Text := FloatToStr (Jumlah)

end;

Pada Button 2 (Pengurangan) :

procedure TForm1.Button1Click(Sender: TObject);

var

bil1,bil2 : Real;

Kurang : Real;

begin

bil1 := StrToFloat Ebil1.Text;

bil2 := StrToFloat Ebil2.Text;

Kurang := bil1-bil2;

Ekurang.Text := FloatToStr (Kurang)

end;

Pada Button 3 (Perkalian) :

procedure TForm1.Button1Click(Sender: TObject);

var

bil1,bil2 : Real;

Kali : Real;

begin

bil1 := StrToFloat Ebil1.Text;

bil2 := StrToFloat Ebil2.Text;

Kali := bil1 * bil2;

Ekali.Text := FloatToStr (Kali)

end;

Pada Button 4 (Pembagian) :

procedure TForm1.Button1Click(Sender: TObject);

var

bil1,bil2 : Real;

Bagi : Real;

begin

bil1 := StrToFloat Ebil1.Text;

bil2 := StrToFloat Ebil2.Text;

Bagi := bil1 * bil2;

Ebagi.Text := FloatToStr (Bagi)

end;

Selesai. ;) Coba Test program kalkulator sederhananya dengan mengklik pada logo Debug .

Goodluck (y) ;)